note
	description: "Summary description for {MIRAGE}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	MIRAGE

inherit
	ARGUMENTS

create
	make

feature{NONE}
	modulo: MC72
	make
		do
			create modulo
		end

	feature
		atacar_Objetivo(objetivo: STRING)
			-- Ataca al objetivo asignado
			local
				flag_Falla: INTEGER
				flag_Todo: BOOLEAN --Inicializa en false por defecto.
				cant_Intentos: INTEGER --Inicializa en 0 por defecto.
			do
				if(not(flag_Todo))
					then
						flag_Falla:=0
						modulo.preparar_Misil
						flag_Falla:=1
						modulo.apuntar_Misil(objetivo)
						
						modulo.lanzar_Misil
					end
			rescue
				if(flag_Falla=0)
					then
						flag_Todo:=true
						retry
					end
				if(flag_Falla=1 and cant_Intentos<5)
					then
						cant_Intentos:=cant_Intentos+1
						retry
					end
			end
end
